このサンプルを実行するには以下の前準備が必要です。
外部コマンドＷＡＶＥを使用できるようにします。
Ｔｏｗｎｓシステムソフトウェアに収録されている次の音声ファイルをウエーブ形式に変換してカレントディレクトリに置きます。
AIKODE_F.SND
AK_F.SND
JANKEN_F.SND
WK_F.SND
PAUSE
'
string hand[1] グー
string hand[2] チョキ
string hand[3] パー
'
:start

じゃんけんポン！
wave janken_f.wav
:sel
com=random(1,3)

１−グー
２−チョキ
３−パー
select 3 m1 m2 m3

:aiko
あいこでショ！
wave aikode_f.wav
goto sel

:m1
%hand[com]%
if com = 1 goto aiko
if com = 2 goto win
goto lose

:m2
%hand[com]%
if com = 2 goto aiko
if com = 3 goto win
goto lose

:m3
%hand[com]%
if com = 3 goto aiko
if com = 1 goto win
goto lose

:win
あなたの勝ち〜
wave ak_f.wav
goto start

:lose
私の勝ち〜！
wave wk_f.wav
goto start